home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1994 / MacHack 1994.toast / MacHack™ 1987-1994 / MacHack™ '87 / Source ƒ.sea / Source ƒ / Pascal ƒ / engineering pascal / JULIAN.LIB < prev    next >
Encoding:
Text File  |  1987-03-19  |  384 b   |  19 lines  |  [TEXT/MARC]
  1.  
  2.  
  3. function julian(dd,mm,yyyy: integer): integer;
  4. var jm,jy: integer;
  5. begin
  6.   case mm of
  7.     1,2    : begin
  8.         jy:=yyyy-1;
  9.         jm:=mm+13
  10.       end
  11.     else
  12.       begin
  13.           jy:=yyyy;
  14.         jm:=mm
  15.       end;
  16.   julian:=trunc(365.25*jy)+trunc(30.6001*jm)+dd+1720982
  17. end;    { julian }
  18.  
  19.